﻿<!--#include file="const.asp"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>


<%
if sid="Null" then
	Response.Redirect "login.asp"
	Response.end
end if

IF  Request.QueryString("Action")="login" Then
	call login
else
	call index
end if
end Function



Function index
	dim rs,sql,Runtxt
	Runtxt=qingtian.RunStr
dim id
		set rs=Server.CreateObject("ADODB.Recordset")
		Sql = "select top 1 id  FROM qingtian_user order by id desc"
		rs.open sql,conn,1,1
		if not (rs.eof and rs.bof) then
                id=rs("id")+1
                else
                id=0
                end if
		rs.Close
		Set rs = Nothing
%>
	<card title="添加域名授权码"><p align="left">
<a href='index.asp?sid=<%=sid%>'>管理首页</a>&gt;<a href='config.asp?sid=<%=sid%>'>网站配置</a>&gt;配置<br/>
==<b>添加域名授权码</b>==<br/>


        输入授权码:(不得输入错误的授权码以免影响网站速度)<br/>
        <input format='*N' name="msgg<%=Runtxt%>" value="<%=id%>" type="text"/><br/>
	<anchor>保存设置
    	<go href="config5.asp?Action=login&amp;sid=<%=sid%>" method='post'>
        <postfield name="msgg" value="$(msgg<%=Runtxt%>:n)"/>
    	</go>
	</anchor><br/><b>使用说明:</b><br/>
要获得授权码，请购买我们的正版软件！<br/>版权---晴天3G手机建站系统
<br/>----------<br/>
<a href='index.asp?sid=<%=sid%>'>后台管理首页</a><br/>
<%
End Function


Function login

		dim msgg,errss
		msgg=qingtian.repsql(Request.form("msgg"))
if len(msgg)<5 then errss="填写有误,请重新写入...<br/>"
%>
<card id="login" title="添加域名授权码" ontimer="index.asp?sid=<%=sid%>"><timer value="20"/><p align="left">
<%
	if errss="" then
    conn.execute("update qingtian_config set [code]=code&'"&msgg&"'&';'")
%>
添加域名授权码成功!<br/>
<%
	else
%>
		<%=errss%>
		<a href="config5.asp?sid=<%=sid%>">返回修改</a><br/>
<%
	end if
%>
<a href='index.asp?sid=<%=sid%>'>后台管理首页</a><br/>
<%
end Function 
%>
